home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / riddler.dxr / 00008_Playing rule 1.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  361 b   |  10 lines
  1. on exitFrame
  2.   global gVoiceChannel, gPathToSound, fileDelimiter, gMusicChannel
  3.   set fadeInc to 10
  4.   repeat while the volume of sound gMusicChannel > 128
  5.     set the volume of sound gMusicChannel to the volume of sound gMusicChannel - fadeInc
  6.     LingoPause(10)
  7.   end repeat
  8.   sound playFile gVoiceChannel, gPathToSound & "Rules" & fileDelimiter & "R1001"
  9. end
  10.